add_codes_bac_wrapper<-function(years){
  setwd(wd_code)
  setwd('./Codes/Bac HS SIIIR Codes/')
  eval(parse('add_codes_hs_bac.R', encoding = 'UTF-8'))

  
  
  data<-data.frame()
  code<-data.frame()
  for (year in years) {
    print(year)
    
    list<-add_codes_hs_bac(year)
    
    code_temp<-list[[2]]
    code<-rbind(code,code_temp)
  }
  
  setwd(wd_code)
  setwd('./Codes/Bac HS SIIIR Codes/')
  saveRDS(code,"siiir_codes_hs_bac.rds")
  setwd(wd)
  
}